0 :POKE2053,143:LOAD"GENERATOR 26",8,1
10 SYS49179:SYS49152:POKE16383,255:POKE49504,PEEK(53280)-128
11 B=25:PRINT"[147]":GOSUB45:PRINT26;:GOSUB46
12 PRINT:PRINT"ZEILE 0 WIRD GLEICH"
13 B=24:PRINT"'FESTGENAGELT'":GOSUB46:GOSUB45:GOSUB46
14 POKE1,55:GOSUB45
15 PRINT"AUCH BEIM BILDSCHIRMLOESCHEN IST ZEILE 0BEI POKE1,55 NICHT BEEINFLUSSBAR !"
16 GOSUB46:PRINT"[147]KANN ABER DURCH 'SYS' BEFEHLE BE-       SCHRIEBEN WERDEN"
17 GOSUB46:SYS49369,"SYS49369,AUSDR. / SYS49358,SPALTE,AUSDR."
18 PRINT"EBENSO KANN ZEILE 0 DURCH SYS 49168     GELOESCHT WERDEN !":GOSUB46
19 SYS49168
20 PRINT"ALS SONDERZEICHEN WERDEN NUR [RVS ON]   UND [RVS OFF] AUSGEFUEHRT"
21 GOSUB46
22 X$="HIER[146] EIN KLEINES[146] BEISPIEL MIT[146] 40 ZEICHEN[146]":SYS49369,X$
23 GOSUB46
24 PRINT"EIN LEN(X$) BEFEHL ERGIBT ABER"LEN(X$):PRINT"ZEICHEN"
25 GOSUB46:PRINT"[147]ANDERE STEUERZEICHEN WERDEN NICHT AUS-  GEFUEHRT,";
26 PRINT"AUSSER [CRSR RIGHT]"
27 GOSUB46
28 SYS49369,"[145][145][145][145][157][157][157][157][145][145][145][145][157][157][157][157][157]"
29 GOSUB46
30 PRINT"STOERT DER SCHWARZE RAND ?"
31 PRINT"VERURSACHER IST DIE SPEICHERZELLE 16383 JETZT WERDEN DIE WERTE ";
32 PRINT"VON 0 BIS 255 IN DIE SPEICHERZELLE GEPOKED "
33 GOSUB46
34 FORA=0TO255:POKE16383,A:NEXT
35 GOSUB46
36 PRINT"JETZT STEHT 0 DRIN":POKE16383,0
37 PRINT"DIE FARBE DES RANDES KANN IN 49504      GEAENDERT WERDEN"
38 GOSUB46:FORB=0TO127:POKE49504,B:NEXT:GOSUB46
39 PRINT"ER KANN ABER AUCH MIT POKE 49504,128    ABGESCHALTET WERDEN"
40 GOSUB46:POKE49504,128
41 GOSUB46:PRINT"[147]ZEILE 0 WIRD DURCH POKE 1,53 WIEDER     FREIGEGEBEN "
42 POKE1,53:B=25:GOSUB46
43 GOSUB45:PRINT26;:GOSUB46
44 END
45 FORA=1TOB:PRINTA:NEXT:RETURN
46 POKE198,0:WAIT198,1:RETURN